CONVERT: PROCEDURE OPTIONS (MAIN);                                    CON00010
     /*A PROGRAM TO FORMAT PSEUDO-MARC RECORDS*/                        CON00020
                                                                        CON00030
     DECLARE                                                            CON00040
        DIR(10) FIXED (3,0),/*DIRECTORY ARRAY*/                         CON00050
        I FIXED (2,0),/*COUNTER*/                                       CON00060
        BIB CHAR (134) VARYING,/*BIBLIOGRAPHICAL MATERIAL*/             CON00070
        BIB←PART(9) CHAR (50) VARYING,/*BIB SEGMENTS*/                  CON00080
        OKOK BIT (1);/*END FLAG*/                                       CON00090
                                                                        CON00100
   /*INITIALIZE VARIABLES*/                                             CON00110
                                                                        CON00120
     I = 0;                                                             CON00130
     DIR = 0;                                                           CON00140
     BIB←PART = 0;                                                      CON00150
     OKOK = '1'B;                                                       CON00160
     DIR(10) = 0;                                                       CON00170
                                                                        CON00180
     ON ENDFILE (SYSIN) OKOK = '0'B;                                    CON00190
                                                                        CON00200
        GET EDIT ((DIR (I) DO I = 1 TO 9),BIB)                          CON00210
           (9 F(3,0),A(133));                                           CON00220
        DIR(10) = INDEX(BIB,'  ');                                      CON00230
                                                                        CON00240
  MRCTIME:                                                              CON00250
     DO WHILE (OKOK);                                                   CON00260
                                                                        CON00270
     USEDIR:                                                            CON00280
        DO I = 1 TO 9;/*BREAK BIB INTO SEGMENTS USING DIR NUMBERS*/     CON00290
           BIB←PART(I) = SUBSTR (BIB,DIR(I),DIR(I + 1) - DIR(I));       CON00300
        END USEDIR;                                                     CON00310
                                                                        CON00320
     PUT SKIP LIST /*PRINT BIB←PART(1-4) ON ONE LINE (W) PUNCT.*/       CON00330
        (BIB←PART(1)||', '||BIB←PART(2)||'.  '||BIB←PART(3)||           CON00340
          '.  '||BIB←PART(4));                                          CON00350
     PUT SKIP LIST /*PRINT BIB←PART(5-9) ON NEXT LINE (W) PUNCT.*/      CON00360
        ('     '||BIB←PART(5)||'.  '||BIB←PART(6)||'.  '||              CON00370
           BIB←PART(7)||'.  '||BIB←PART(8)||'.  '||BIB←PART(9));        CON00380
                                                                        CON00390
        GET EDIT ((DIR(I) DO I = 1 TO 9),BIB)                           CON00400
           (9 F(3,0),A(133));                                           CON00410
        DIR(10) = INDEX(BIB,'  ');                                      CON00420
                                                                        CON00430
     END MRCTIME;                                                       CON00440
  END CONVERT;                                                          CON00450